home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / pas2c.zip / TASK.PAS < prev   
Pascal/Delphi Source File  |  1993-01-04  |  920b  |  47 lines
  1. {
  2.  
  3.     TASK.PAS - Unit Interface to TASK.C
  4.  
  5. }
  6.  
  7. unit TASK;
  8.  
  9. interface
  10.  
  11. uses CINTRIN;
  12.  
  13. var
  14.     _current_task : Integer;
  15.  
  16. procedure switch_task;
  17. procedure start_task(id : Integer; stack : Pointer; task : Pointer);
  18. procedure enable_task(id : Integer);
  19. procedure disable_task(id : Integer);
  20. procedure delay_task(milliseconds : Integer);
  21.  
  22. implementation
  23.  
  24. {$L TASK}
  25. {$F+}
  26. procedure switch_task; external;
  27. procedure start_task(id : Integer; stack : Pointer; task : Pointer); external;
  28. procedure enable_task(id : Integer); external;
  29. procedure disable_task(id : Integer); external;
  30. procedure delay_task(milliseconds : Integer); external;
  31. procedure initialize_task; external;
  32. {$F-}
  33.  
  34. {$L SETJMP} { from CC.LIB }
  35. procedure _setjmp; external;
  36. procedure _longjmp; external;
  37.  
  38. procedure _abort;
  39.     begin
  40.     WriteLn('Task tried to exit');
  41.     Halt(1)
  42.     end;
  43.  
  44. begin
  45. initialize_task;
  46. end.
  47.